gtkWidgetPushCompositeChild()
hscrollbar <- gtkHScrollbarNew(hadjustment)
hscrollbar$setCompositeName("hscrollbar")
gtkWidgetPopCompositeChild()
hscrollbar$setParent(scrolled_window)
